home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / PureBasic.lha / PureBasic_Demo / PureBasic / Examples / FullVersion_Sources / WaponezII.pb < prev    next >
Encoding:
Text File  |  2000-03-19  |  15.3 KB  |  737 lines
  1. ;
  2. ; **************
  3. ;               *
  4. ; Waponez II     **********************************************
  5. ;                                                              *
  6. ;   Origninal Waponez is from NC Gamez ! Check it on Aminet...  *
  7. ;                                                                *
  8. ; *****************************************************************
  9. ;
  10. ;
  11. ; Author note (AlphaSND):
  12. ; -----------------------
  13. ;
  14. ; This game was developped in a hurry (all the game was done in 6 days,
  15. ; working at spare time) so it's just a little example of what the
  16. ; PureBasic can do. This game requiers an AGA Amiga for the nice title
  17. ; screen, else the rest of the gfx are in standard 32 colours (work
  18. ; on all Amiga). 
  19. ;
  20. ; -----------------------------------------------------------------------
  21. ;
  22. ; History:
  23. ;
  24. ; 11/03/2000
  25. ;   + Added sound support !
  26. ;   + Draw a nice title picture...
  27. ;   + Use an AmigaSprite to hide the mouse pointer.
  28. ;   + Commented the code a lot
  29. ;
  30. ; 21/02/2000
  31. ;   + Added Pause & ESC key support :).
  32. ;
  33. ; 20/02/2000
  34. ;   + Added Mapped background... A special tool has been created
  35. ;     to create nice background with ease.
  36. ;   + Start/Stop the sprite server in the loop ensure a good multitask !
  37. ;     Very plaisant to see...
  38. ;   + Added some other aliens (the final boss ;*)
  39. ;   + Added a nice FadeOut routine at the end (easy, it's PB which do it).
  40. ;   + Added collisions between player & sprite.
  41. ;
  42. ; 19/02/2000
  43. ;   + Added real sprite support (still using linked list :*)...)
  44. ;   + Added animated sprite support
  45. ;   + Added lot of bullets... It works very well !! :)
  46. ;   + Added explosion & collision routines.. Need a good CPU now :*D.
  47. ;   + Perfectly smooth on a 1230/50.
  48. ;
  49. ; 18/02/2000
  50. ;   + Added the real gfx, it looks very nice :)
  51. ;   + Implemented the bullets via a linked list, the easier way...
  52. ;
  53. ; 15/02/2000
  54. ;   + Started the routine.
  55. ;   + Very nice looking 50 fps scroll in OS mode.
  56. ;   + Added the main sprite which moving around with joypad...
  57. ;   + Added the aliens :*). 
  58. ;   + Reworked the routine because a big bug (still same speed)
  59. ;
  60.  
  61. ; This game can be started from the Workbench.
  62. ;
  63. WbStartup()
  64.  
  65. ; Initialise all the libraries we're using in this game
  66. ;
  67. InitAmigaSprites(10)
  68. InitSprite(100,100,100)
  69. InitBitMap(2)
  70. InitScreen(2)
  71. InitJoypad()
  72. InitPalette(10)
  73. InitPicture(1)
  74. InitSound(10)
  75. *TagList = InitTagList(100)
  76.  
  77. ;
  78. ; Create and allocate all the necessary bitmaps:
  79. ; 2 for the double buffering routine;
  80. ; 1 for the title screen
  81. ;
  82. AllocateBitMap(0, 320, 480+64+20, 5)  ; 2 x ScreenHeight + 64 + 20 
  83. AllocateBitMap(1, 320, 480+64+20, 5)  ;
  84. AllocateBitMap(2, 320, 50, 8)         ; Title BitMap
  85.  
  86. ;
  87. ; Our own structures for each objects (bullets, aliens,...)
  88. ; It's very handy to use such structures because all the 
  89. ; informations relative to each objects (bullet, aliens,...)
  90. ; like the position, the speed... is stored in the
  91. ; same name. It's object oriented programming :*) (A bit... OOPs)
  92. ;
  93. Structure Bullet
  94.   x.w
  95.   y.w
  96.   Width.w
  97.   Height.w
  98.   Image.w
  99.   SpeedX.w
  100.   SpeedY.w
  101. EndStructure
  102.  
  103. NewList Bullet.Bullet()
  104.  
  105.  
  106. Structure Alien
  107.   x.w
  108.   y.w
  109.   Width.w
  110.   Height.w
  111.   Speed.w
  112.   StartImage.w
  113.   EndImage.w
  114.   ImageDelay.w
  115.   NextImageDelay.w
  116.   ActualImage.w
  117.   Armor.w
  118. EndStructure
  119.  
  120. NewList Aliens.Alien()
  121.  
  122.  
  123. Structure Explosion
  124.   x.w
  125.   y.w
  126.   State.w
  127.   Delay.w
  128. EndStructure
  129.  
  130. NewList Explosion.Explosion()
  131.  
  132.  
  133. ;
  134. ; Now we create the buffers to store the erased background
  135. ; information when we will display the sprites..
  136. ;
  137. UseBitMap(1)
  138. CreateSpriteBuffer(1, 10000, BitMapID())
  139. UseBitMap(0)
  140. CreateSpriteBuffer(0, 10000, BitMapID())
  141.  
  142. ; Our global 'Path$'. All files are relative to this path for easier localisation...
  143. ;
  144. Path$ = "PureBasic:Examples/WaponezII/"
  145.  
  146. LoadSprite(0, Path$+"Back_1")
  147. LoadSprite(1, Path$+"Player_1")
  148. LoadSprite(2, Path$+"Player_2")
  149. LoadSprite(3, Path$+"Player_3")
  150. LoadSprite(4, Path$+"Bullet_1")
  151. LoadSprite(5, Path$+"Back_2")
  152.  
  153. LoadSprite(6, Path$+"Bullet_Right")
  154. LoadSprite(7, Path$+"Bullet_Left")
  155. LoadSprite(8, Path$+"Bullet_Diag1")
  156. LoadSprite(9, Path$+"Bullet_Diag2")
  157.  
  158. LoadSprite(55, Path$+"Bullet_Bottom")
  159.  
  160. ;
  161. ; Sprite 10 to 5 reserved for the rotating animated alien..
  162. ;
  163.  
  164. For k=0 To 5
  165.   LoadSprite(k+10, Path$+"Ennemy_3_"+Str(k+1))
  166. Next
  167.  
  168. ;
  169. ; Sprite 20 to 30 reserved for the explosions...
  170. ;
  171.  
  172. For k=0 To 7
  173.   LoadSprite(k+20, Path$+"Explosion_"+Str(k+1))
  174. Next
  175.  
  176. ;
  177. ; Load all the background blocks...
  178. ;
  179.  
  180. For k=0 to 9
  181.   LoadSprite(k+30, Path$+"Back_"+Str(k+1))
  182. Next
  183.  
  184. LoadSprite(50, Path$+"Boss")
  185.  
  186. ;
  187. ; Load our blank AmigaSprite to hide pointer on the 2 screens
  188. ;
  189.  
  190. LoadAmigaSprite(0, Path$+"Blank")
  191.  
  192. ;
  193. ; Now, load our sounds..
  194. ;
  195.  
  196. SoundPath$ = Path$+"Sounds/"
  197.  
  198. LoadSound(0, SoundPath$+"Lazer")
  199. SetSoundChannels(0, 1)            ; Will be played only the 1st channel
  200. SetSoundVolume(0, 32)
  201.  
  202. LoadSound(1, SoundPath$+"Background")
  203. SetSoundChannels(1, 2)            ; ...only on the 2nd channel
  204.  
  205. LoadSound(2, SoundPath$+"Explosion")
  206. SetSoundChannels(2, 4)            ; ...only the 3nd channel
  207. SetSoundVolume(2, 48)
  208. SetSoundPeriod(2, 400)
  209.  
  210. ;
  211. ; Init all variables with will be used later
  212. ;
  213.  
  214. PlayerWidth  = SpriteWidth(1)
  215. PlayerHeight = SpriteHeight(1)
  216.  
  217. ;
  218. ; Load the needed palette and the title picture (and its palette)
  219. ;
  220. LoadPalette(0, Path$+"Back_1")
  221.  
  222. LoadPicture(0, Path$+"Title_256.iff")  ; Whow a 256 colour picture ?
  223. GetPicturePalette(4, PictureID())      ;
  224.  
  225. UseBitMap(2)                      ; Render the picture on the BitMap
  226. PictureToBitMap(0, BitMapID())    ;
  227.  
  228. ; Very important: change the program priority to 20, as we need lot
  229. ; of cpu time..
  230. ; 
  231. ProgramPriority(20) 
  232.  
  233. ResetTagList(#SA_Type, #CUSTOMSCREEN | #CUSTOMBITMAP)
  234.       AddTag(#SA_Quiet, 1)
  235.       AddTag(#SA_BitMap, BitMapID())
  236. If OpenScreen(1, 320, 25, 8, *TagList) = 0
  237.   End
  238. EndIf
  239.  
  240. DisplayPalette(4,ScreenID())
  241.  
  242. UseBitMap(0)
  243. ResetTagList(#SA_Type, #CUSTOMSCREEN | #CUSTOMBITMAP)
  244.       AddTag(#SA_Quiet,1)
  245.       AddTag(#SA_BitMap, BitMapID())
  246.       AddTag(#SA_Top, 28)
  247.       AddTag(#SA_Parent, ScreenID())
  248.       AddTag(#SA_Draggable, 0)
  249. If OpenScreen(0,320,240,5, *TagList)
  250.  
  251.   DisplayPalette(0, ScreenID())
  252.  
  253.   AmigaSpriteScreen(ScreenID())  ; AmigaSprite will be displayed on this screen
  254.  
  255.   AllocateSoundChannels(15) ; All Channels are reserved for Waponez II
  256.  
  257.   PlayerSpeed = 2      ; The speed of our player !
  258.  
  259.   db = 1
  260.    b = 0
  261.  
  262.   ScrollY.w = 240+32+16
  263.  
  264.   AdditionnalBlock = 8
  265.   BackgroundLine   = 0
  266.  
  267.   *Level1 = ?Level1
  268.  
  269.   PlaySound(1,-1)
  270.  
  271.   Repeat
  272.     VWait()
  273.  
  274.     DisplayAmigaSprite(0, 0, 321, 241)    ; remove the mouse pointer ! (Sprite 0 on Channel 0 at position 321, 241)
  275.    
  276.     ShowBitMap(db, ScreenID(), 0, ScrollY) ; Here is the double buffering tips
  277.                                            ; 'db' is alternately 0 and 1 so the bitmaps 0 and 1
  278.                                            ; are displayed one after other. When a bitmap is
  279.                                            ; displayed we do the work on the other bitmap.
  280.  
  281.     StartSpriteServer()    ; Start the sprite server !
  282.  
  283.     Gosub CheckPause
  284.  
  285.     If BackgroundLine < 15*4
  286.       ScrollY-1
  287.  
  288.       If ScrollY<16
  289.         ScrollY = 240+31+16
  290.       EndIf
  291.     Else
  292.       If Boss = 0
  293.         AlienDelay = 100
  294.       EndIf
  295.  
  296.       Boss = 1
  297.     EndIf
  298.  
  299.     db = 1-db
  300.     
  301.     UseSpriteBuffer(db)
  302.     
  303.     ResetSpriteServer()
  304.     RestoreBackGround()
  305.     
  306.     If BackgroundLine < 15*4
  307.     
  308.     BlockY = ScrollY & $FFF0 - 16   ; Little tip to have 16 boundary aligned Y coords..
  309.     
  310.     BlockID1 = PeekB(*Level1)+30     ; Read which blocks should be displayed on the background..
  311.     BlockID2 = PeekB(*Level1+1)+30   ;
  312.     
  313.     AddBlockSprite(BlockID1, BlockX   , BlockY)
  314.     AddBlockSprite(BlockID2, BlockX+16, BlockY)
  315.     AddBlockSprite(BlockID1, BlockX   , BlockY+240+32)
  316.     AddBlockSprite(BlockID2, BlockX+16, BlockY+240+32)
  317.     
  318.     If AdditionnalBlock
  319.       BlockID3 = PeekB(*Level1+2)+30
  320.     
  321.       AddBlockSprite(BlockID3, BlockX+32, BlockY)
  322.       AddBlockSprite(BlockID3, BlockX+32, BlockY+240+32)
  323.     
  324.       AdditionnalBlock-1
  325.       If db = 1
  326.         BlockX+16
  327.         *Level1+1
  328.       EndIf
  329.     EndIf
  330.  
  331.     If db = 1
  332.       BlockX+32
  333.       *Level1+2
  334.     EndIf
  335.  
  336.     If BlockX >= 320
  337.       BlockX = 0
  338.       AdditionnalBlock = 8
  339.       BackgroundLine+1
  340.     Endif
  341.  
  342.     EndIf
  343.  
  344.     UseSpriteBuffer(db)  ; Restore original buffer...
  345.  
  346.     Gosub CheckCollisions
  347.  
  348.     Gosub MovePlayers
  349.     
  350.     Gosub DisplayBullets
  351.     
  352.     Gosub NewAlienWave
  353.     
  354.     Gosub DisplayAliens
  355.     
  356.     Gosub DisplayExplosions
  357.  
  358.     If BulletDelay > 0
  359.       BulletDelay-1
  360.     EndIf
  361.      
  362.     WaitSpriteServer()
  363.     StopSpriteServer()
  364.   Until Quit = 1 OR PressedRawKey() = 69
  365.  
  366.   Gosub EndGame
  367.  
  368. EndIf
  369.  
  370. End
  371.  
  372.                                            
  373. MovePlayers:
  374.  
  375.   Select JoypadMovement(1)
  376.     Case 1
  377.       PlayerY - PlayerSpeed
  378.       PlayerImage = 1
  379.  
  380.     Case 2
  381.       PlayerY - PlayerSpeed
  382.       PlayerX + PlayerSpeed
  383.       PlayerImage = 2
  384.  
  385.     Case 3
  386.       PlayerX + PlayerSpeed
  387.       PlayerImage = 2
  388.  
  389.     Case 4
  390.       PlayerX + PlayerSpeed
  391.       PlayerY + PlayerSpeed
  392.       PlayerImage = 2
  393.  
  394.     Case 5
  395.       PlayerY + PlayerSpeed
  396.       PlayerImage = 1
  397.    
  398.     Case 6
  399.       PlayerY + PlayerSpeed
  400.       PlayerX - PlayerSpeed
  401.       PlayerImage = 3
  402.  
  403.     Case 7
  404.       PlayerX - PlayerSpeed
  405.       PlayerImage = 3
  406.     
  407.     Case 8
  408.       PlayerX - PlayerSpeed
  409.       PlayerY - PlayerSpeed
  410.       PlayerImage = 3
  411.  
  412.     Default
  413.       PlayerImage = 1
  414.  
  415.   EndSelect
  416.  
  417.   If PlayerX < 0 : PlayerX = 0 : EndIf
  418.   If PlayerY < 0 : PlayerY = 0 : EndIf
  419.  
  420.   If PlayerX > 320-PlayerWidth  : PlayerX = 320-PlayerWidth : EndIf
  421.   If PlayerY > 240-PlayerHeight : PlayerY = 240-PlayerHeight : EndIf
  422.  
  423.  
  424.   If Dead = 1 
  425.     AddElement(Explosion())
  426.     Explosion()\x = PlayerX
  427.     Explosion()\y = PlayerY
  428.  
  429.     Dead = 0
  430.   Else
  431.     If DeadDelay>0 
  432.       DeadDelay-1
  433.       If db=1 And DeadDelay < 100
  434.         AddBufferedSprite(PlayerImage, PlayerX, PlayerY+ScrollY)
  435.       EndIf
  436.     Else
  437.       AddBufferedSprite(PlayerImage, PlayerX, PlayerY+ScrollY)
  438.     EndIf
  439.   EndIf
  440.  
  441.   PressedButtons.l = JoypadButtons(1)
  442.   
  443.   
  444.   If PressedButtons & #PB_JOYPAD_BUTTON1
  445.     If BulletDelay = 0 And DeadDelay < 100
  446.     AddElement(Bullet())
  447.     Bullet()\x     = PlayerX+5
  448.     Bullet()\y     = PlayerY-10
  449.     Bullet()\Width = SpriteWidth(4)
  450.     Bullet()\Height= SpriteHeight(4)
  451.     Bullet()\Image = 4
  452.     Bullet()\SpeedY = -7
  453.     BulletDelay = 10
  454.  
  455.     AddElement(Bullet())
  456.     Bullet()\x = PlayerX+26
  457.     Bullet()\y = PlayerY+6
  458.     Bullet()\Width = SpriteWidth(6)
  459.     Bullet()\Height= SpriteHeight(6)
  460.     Bullet()\Image = 6
  461.     Bullet()\SpeedX = 7  
  462.  
  463.     AddElement(Bullet())
  464.     Bullet()\x = PlayerX-11
  465.     Bullet()\y = PlayerY+6
  466.     Bullet()\Width = SpriteWidth(7)
  467.     Bullet()\Height= SpriteHeight(7)
  468.     Bullet()\Image = 7
  469.     Bullet()\SpeedX = -7
  470.  
  471.     AddElement(Bullet())
  472.     Bullet()\x = PlayerX+26
  473.     Bullet()\y = PlayerY-6
  474.     Bullet()\Width = SpriteWidth(8)
  475.     Bullet()\Height= SpriteHeight(8)
  476.     Bullet()\Image = 8
  477.     Bullet()\SpeedX = 7
  478.     Bullet()\SpeedY = -7
  479.  
  480.     AddElement(Bullet())
  481.     Bullet()\x = PlayerX-11
  482.     Bullet()\y = PlayerY-6
  483.     Bullet()\Width = SpriteWidth(9)
  484.     Bullet()\Height= SpriteHeight(9)
  485.     Bullet()\Image = 9
  486.     Bullet()\SpeedX = -7
  487.     Bullet()\SpeedY = -7
  488.  
  489.     AddElement(Bullet())
  490.     Bullet()\x = PlayerX+12
  491.     Bullet()\y = PlayerY+32
  492.     Bullet()\Width = SpriteWidth(55)
  493.     Bullet()\Height= SpriteHeight(55)
  494.     Bullet()\Image = 55
  495.     Bullet()\SpeedY = 7
  496.  
  497.     PlaySound(0,1)
  498.  
  499.     EndIf
  500.   EndIf
  501.  
  502.   P2.l = JoypadButtons(0)
  503.  
  504.   If P2 & #PB_JOYPAD_BUTTON2
  505.     Quit = 1
  506.   EndIf
  507.  
  508. Return
  509.  
  510.  
  511. NewAlienWave:
  512.  
  513.   If AlienDelay = 0
  514.  
  515.     AddElement(Aliens())
  516.  
  517.     If Boss = 1
  518.       Aliens()\x = 100
  519.       Aliens()\y = -16
  520.       Aliens()\Width  = SpriteWidth(50)
  521.       Aliens()\Height = SpriteHeight(50)
  522.       Aliens()\Speed  = 2
  523.       Aliens()\StartImage = 50
  524.       Aliens()\EndImage = 50
  525.       Aliens()\ImageDelay = 1
  526.       Aliens()\NextImageDelay = 1
  527.       Aliens()\ActualImage = 50
  528.       Aliens()\Armor = 20
  529.    
  530.       AlienDelay = 80
  531.  
  532.     Else
  533.  
  534.     Aliens()\x = 100
  535.     Aliens()\y = -16
  536.     Aliens()\Width  = SpriteWidth(10) 
  537.     Aliens()\Height = SpriteHeight(10)
  538.     Aliens()\Speed = 2
  539.     Aliens()\StartImage  = 10 
  540.     Aliens()\EndImage    = 15 
  541.     Aliens()\ImageDelay  =  4
  542.     Aliens()\NextImageDelay = Aliens()\ImageDelay
  543.     Aliens()\ActualImage = 10
  544.     Aliens()\Armor = 4
  545.  
  546.     AlienDelay = 22
  547.  
  548.     Endif
  549.   Else
  550.     AlienDelay - 1
  551.   EndIf
  552.  
  553. Return
  554.  
  555.  
  556. DisplayAliens:
  557.  
  558.   ResetList(Aliens())
  559.   While NextElement(Aliens())
  560.  
  561.     AddBufferedSprite(Aliens()\ActualImage, Aliens()\x, Aliens()\y+ScrollY)
  562.  
  563.     Aliens()\y + Aliens()\Speed
  564.  
  565.     If Aliens()\NextImageDelay = 0
  566.  
  567.       Aliens()\ActualImage+1
  568.  
  569.       If Aliens()\ActualImage > Aliens()\EndImage
  570.         Aliens()\ActualImage = Aliens()\StartImage
  571.       EndIf
  572.  
  573.       Aliens()\NextImageDelay = Aliens()\ImageDelay
  574.     Else
  575.       Aliens()\NextImageDelay-1
  576.     EndIf
  577.  
  578.     If Aliens()\Armor <= 0 Or Aliens()\y > 240+16
  579.       If Aliens()\Armor <= 0
  580.  
  581.         AddElement(Explosion())
  582.         Explosion()\x = Aliens()\x
  583.         Explosion()\y = Aliens()\y
  584.  
  585.         Score+20
  586.       EndIf
  587.  
  588.       KillElement(Aliens())
  589.     EndIf
  590.   Wend
  591. Return
  592.  
  593.  
  594. DisplayBullets:
  595.  
  596.   ResetList(Bullet())
  597.   While NextElement(Bullet())
  598.  
  599.     If Bullet()\y < 0
  600.       KillElement(Bullet())
  601.     Else
  602.       If Bullet()\x < 0
  603.         KillElement(Bullet())
  604.       Else
  605.  
  606.         If Bullet()\x > 320-Bullet()\Width
  607.           KillElement(Bullet())
  608.         Else
  609.           If Bullet()\y > 245
  610.             KillElement(Bullet())
  611.           Else
  612.             AddBufferedSprite(Bullet()\Image, Bullet()\x, Bullet()\y+ScrollY)
  613.  
  614.             Bullet()\y + Bullet()\SpeedY
  615.             Bullet()\x + Bullet()\SpeedX
  616.           Endif
  617.         EndIf
  618.       EndIf
  619.     EndIf
  620.  
  621.   Wend
  622.  
  623. Return
  624.  
  625. ;
  626. ; This routine is very CPU intensive when many bullets are flying
  627. ; all around the screen...
  628. ;
  629. CheckCollisions:
  630.  
  631.   ResetList(Aliens())
  632.   While NextElement(Aliens())
  633.     ResetList(Bullet())
  634.     While NextElement(Bullet())
  635.  
  636.       If Bullet()\y <= Aliens()\y+Aliens()\Height
  637.         If Bullet()\y+Bullet()\Height >= Aliens()\y
  638.           If Bullet()\x+Bullet()\Width => Aliens()\x
  639.             If Bullet()\x <= Aliens()\x+Aliens()\Width
  640.               Aliens()\Armor-1
  641.               KillElement(Bullet())
  642.             EndIf
  643.           EndIf
  644.         EndIf
  645.       EndIf
  646.     Wend
  647.  
  648.     If DeadDelay = 0
  649.     If PlayerX+PlayerWidth > Aliens()\x
  650.       If PlayerX < Aliens()\x+Aliens()\Width
  651.         If PlayerY+PlayerHeight > Aliens()\y
  652.           If PlayerY < Aliens()\y+Aliens()\Height
  653.             Dead = 1
  654.             DeadDelay = 180 
  655.  
  656.             AddElement(Explosion())
  657.             Explosion()\x = Aliens()\x
  658.             Explosion()\y = Aliens()\y
  659.  
  660.             KillElement(Aliens())
  661.           EndIf
  662.         EndIf
  663.       EndIf
  664.     EndIf
  665.     EndIf
  666.   Wend
  667.  
  668. Return
  669.  
  670.  
  671. DisplayExplosions:
  672.  
  673.   ResetList(Explosion())
  674.   While NextElement(Explosion())
  675.  
  676.     AddBufferedSprite(Explosion()\State+20, Explosion()\x, Explosion()\y+ScrollY)
  677.  
  678.     If Explosion()\Delay = 0
  679.       If Explosion()\State = 0
  680.         PlaySound(2,1) 
  681.       EndIf
  682.  
  683.       If Explosion()\State < 7
  684.         Explosion()\State+1
  685.         Explosion()\Delay = 2
  686.       Else
  687.         KillElement(Explosion())
  688.       Endif
  689.     Else
  690.       Explosion()\Delay-1
  691.     EndIf
  692.   Wend
  693.  
  694. Return
  695.  
  696.  
  697. CheckPause:
  698.  
  699.   If PressedRawKey() = 25
  700.  
  701.     WaitSpriteServer()
  702.     StopSpriteServer()
  703.  
  704.     StopSound(0)
  705.  
  706.     Repeat
  707.       VWait()
  708.     Until PressedRawKey() <> 25
  709.  
  710.     Repeat
  711.       VWait()
  712.     Until PressedRawKey() = 25
  713.  
  714.     Repeat
  715.       VWait()
  716.     Until PressedRawKey() <> 25
  717.  
  718.     PlaySound(1,-1)
  719.  
  720.     StartSpriteServer()
  721.  
  722.   EndIf
  723. Return
  724.  
  725.  
  726. EndGame:
  727.  
  728.   FadeOut(0, ScreenID(), 4, 64)
  729.  
  730.   HideScreen()
  731.  
  732. Return
  733.  
  734.  
  735. Level1:
  736. IncludeBinary "PureBasic:Examples/WaponezII/DefaultMap"
  737.